Delphi Forum

carsoft

Anaform ve form2 var program sadece bir defa çalışıyor MUTEX kullandım.

ama sorunum windows sağ menüye ekledim oradan çağırıyorum programı ama anaform ile açılıyor ben
anaform'daki buton1 'e nasıl tıklatabilirim.

carsoft

Kod: Tümünü seç

Memo2.Lines.BeginUpdate;
try
  for i := 0 to -1 do
    Memo2.Lines.Add( Memo1.Lines[ i ] );
finally
  Mome2.Lines.EndUpdate;
end;

carsoft

ben bu şekilde servis kullanarak çalıştırabiliyorum örnek olması açısından bu işini görür. servise bir timer koy. function RunMeAsAdmin(hWnd: HWND; filename: string; Parameters: string): Boolean; var sei: TShellExecuteInfo; begin ZeroMemory(@sei, SizeOf(sei)); sei.cbSize := SizeOf(TShellExecuteInfo)...

carsoft

yetkim var uac kapalı zaten

carsoft

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
          Randomize;

          Timer1.Interval := 0;
          Timer1.Enabled  := False;

          while Timer1.Interval < 10000 do
                Timer1.Interval := Random(100000);

          Timer1.Enabled  := True;
end;

carsoft

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var Ico: TIcon;
ImageList : TImagelist;
begin
ImageList := TImageList.Create(Self);
Ico := TIcon.Create;
Ico.LoadFromFile(Path+resim veya ikon adı);
ImageList.AddIcon(ico);
ImageList.GetIcon(0,Image1.Picture.Icon); 
Ico.Free;
end;

carsoft

bu şekilde dosyayı silerken

Kod: Tümünü seç

DeleteFile(items[i].SubItems[0]);

dosyayı taşıma veya kopyalama neden çalışmıyor olabilir.

Kod: Tümünü seç

MoveFile(pChar(items[i].SubItems[0]),pChar(MainForm.Options.YedeklerPath));

carsoft

denedim ama buda olmadı bir yolu yokmu acaba..

carsoft

Mdi olmayan form içinde form açıyorum bu şekilde form2 alphablend true

Kod: Tümünü seç

form2.Parent:=form1;
Form2.Align  := alClient;
form2.Show;

fakat içinde açılan form transparan olmuyor, bunun bir yolu varmı..? alttaki form1 in görünmesini istiyorum.

carsoft

Teşekkürler bu formu çok seviyorum , insanı geliştiriyor.

carsoft

terminate ediyorum zaten , unit içinde kullanıyorum threat Synchronize() ile Unit içinden Forma gönderiyorum örnek verebilirmisin

carsoft

Thread içinden form show olayı doğrusu nasıl olmalı bu şekilde problem olurmu Procedure TThread.Goster(); begin Form1.show; end; cpu % 6 larda iyi veya bu şekildemi olması lazım TThread içinden Synchronize(Goster); Procedure TThread.Goster(); begin Form2.Deneme; end; Form2 procedure TForm2.Deneme();...

carsoft

arkadaşım dosyanın olup olmadığını kotrol ederek işlem yaparsan daha iyi olur..

Kod: Tümünü seç

if FileExists('\\?\'+FileName) then

carsoft

Şu adresi inceleyebilirsin..

Kod: Tümünü seç

http://stackoverflow.com/questions/13238076/how-to-add-a-picture-frame-and-insert-the-text-in-the-image

carsoft

Unit veya dll içinde Application.ProcessMessages nasıl kullanabilirim.kullandığım dll boyutu 400kb gerekirmi acaba.

Delphi Forum

137 uygun sonuç bulundu

Eger Program çalışıyorsa Form2.show olayı

Re: memo1'deki satırları memo2'ye copyalama.

Re: Serviste exe çalıştırmak

Re: Dosya taşıma veya kopyalama problemi

Re: Timer için her seferinde farkı süre oluşturma

Re: Run time de Image eklemek ve çoğaltmak

Dosya taşıma veya kopyalama problemi

Re: Form içinde transparan form açmak

Form içinde transparan form açmak

Re: Synchronize Form Show olayı

Re: Synchronize Form Show olayı

Synchronize Form Show olayı

Re: Image1 sorunu

Re: Jpeg File

Unit veya Dll içinde Application.ProcessMessages kullanımı