Clomosy | Forum : �ok ekranl� uygulama yap�m�

�ok ekranl� uygulama yap�m� : Tamam, burda: Var MainForm: TclForm;...

Wed, 09 Aug 2023 16:52:07 +0000

Yazar: Alforce
Konu: 559
G�nderim Zaman�: 09 A�ustos 2023 Saat 16:52

Tamam, burda:

Var
  MainForm: TclForm;
  MyForm: TclForm;
  i: Integer;
  But1, startBtn: TclButton;

Procedure StartBtnOnClick;
Begin    
  For i:= 1 to 6 do
    Case i of
      1:ShowMessage('Hello World');
      2:ShowMessage('Number 2');
      
      else ShowMessage('Others=> counter: '+IntToStr(I));
    End; 
End;

Procedure But1Click;
begin
  MyForm:= TclForm.Create(Self);

  startBtn:= MyForm.AddNewButton(MyForm,'startBtn','SHOW');
  startBtn.TextSettings.Font.Size:=50;
  startBtn.Align:= alCenter;
  startBtn.Height:= 50;
  startBtn.Width:= 100;
  MyForm.AddNewEvent(startBtn,tbeOnClick,'StartBtnOnClick');

  MyForm.Run;
end;

begin
  MainForm:= TclForm.Create(Self);

  But1:= MainForm.AddNewButton(MainForm,'But1','Button1');
  MainForm.AddNewEvent(But1,tbeOnClick,'But1Click');

  MainForm.Run;
end;

D�zenleyen Alforce - 09 A�ustos 2023 Saat 16:53

�ok ekranl� uygulama yap�m� : Örneğin bu kodun but1 e basınca...

Wed, 09 Aug 2023 16:43:54 +0000

Yazar: BerkayDuru
Konu: 559
G�nderim Zaman�: 09 A�ustos 2023 Saat 16:43

�rne�in bu kodun but1 e bas�nca �al��mas� i�in ne yap�lmal�.

var   MyForm:TclForm;   I:integer;   startBtn:TCLButton;
   Procedure StartBtnOnClick;   begin        for I := 1 to 6 do    begin      case I of        1:ShowMessage('Hello World');        2:ShowMessage('Number 2');        else        begin          ShowMessage('Others=> counter: '+IntToStr(I));        end;      end;    end;      end;
begin  MyForm := TclForm.Create(Self);
  startBtn:= MyForm.AddNewButton(MyForm,'startBtn','SHOW');  startBtn.TextSettings.Font.Size:=50;  startBtn.Align := alCenter;  startBtn.Height := 50;  startBtn.Width := 100;  MyForm.AddNewEvent(startBtn,tbeOnClick,'StartBtnOnClick');
  MyForm.Run;end;

�ok ekranl� uygulama yap�m� : Demek istediğinizi tam anlayamadım.Sanırım...

Wed, 09 Aug 2023 16:29:29 +0000

Yazar: Alforce
Konu: 559
G�nderim Zaman�: 09 A�ustos 2023 Saat 16:29

Demek istedi�inizi tam anlayamad�m.

San�r�m sorununuz bir prosed�r� a��klamadan kullanmak.

Bir metodu kullanmadan �nce kodunu yazmal�s�n�z.

Kodunuzu payla��rsan�z daha �ok yard�mc� olabilirim.

D�zenleyen Alforce - 09 A�ustos 2023 Saat 16:30

�ok ekranl� uygulama yap�m� : Bunu kendim de denemiştim ama...

Wed, 09 Aug 2023 16:25:00 +0000

Yazar: BerkayDuru
Konu: 559
G�nderim Zaman�: 09 A�ustos 2023 Saat 16:25

Bunu kendim de denemi�tim ama bu formatta "Procedure But1Click" i�ine kendi formumu koydu�um zaman ilk prosed�r�m�n oldu�u yerde syntax hatas� al�yorum.

Nas�l bir kullan�m yapmal�y�m ?

��i bo� form de�il de i�inde herhangi bir procedure olan form koyarak bir �rnek yapabilir misiniz.

�ok ekranl� uygulama yap�m� : Bu aslında çok ekranlı değil,...

Wed, 09 Aug 2023 15:51:05 +0000

Yazar: Alforce
Konu: 559
G�nderim Zaman�: 09 A�ustos 2023 Saat 15:51

Bu asl�nda �ok ekranl� de�il, �ok formlu bir yap� olur.

Her form i�in yeni bir unite ihtiyac�n�z yok.

Tek unit i�inde istedi�iniz kadar form kullanabilirsiniz:

Var
  MyForm: TclForm;
  SecondaryForm: TclForm;
  TertiaryForm: TclForm;
  But1, But2: TclButton;

Procedure But1Click;
Begin
  SecondaryForm:= TclForm.Create(Self);
  SecondaryForm.Run;
End;

Procedure But2Click;
Begin
  TertiaryForm:= TclForm.Create(Self);
  TertiaryForm.Run;
End;

Begin
  MyForm:= TclForm.Create(Self);
  
  But1:= MyForm.AddNewButton(MyForm, 'but1', 'Button1');
  But1.Align:= alLeft;
  MyForm.AddNewEvent(But1, tbeOnClick, 'But1Click');
  
  But2:= MyForm.AddNewButton(MyForm, 'but2', 'Button2');
  But2.Align:= alRight;
  MyForm.AddNewEvent(But2, tbeOnClick, 'But2Click');
  
  MyForm.Run;
End;

�ok ekranl� uygulama yap�m� : Daha önce rununit kullanarak 2...

Wed, 09 Aug 2023 14:23:42 +0000

Yazar: BerkayDuru
Konu: 559
G�nderim Zaman�: 09 A�ustos 2023 Saat 14:23

Daha �nce rununit kullanarak 2 ekranl� bir uygulama yapm��t�m. �imdi her ekran i�in unit kullanmadan ileri geri tu�lar� ekleyerek �ok ekranl� bir uygulama yapmak istiyorum nas�l bir yap� kullanabilirim.

(�rne�in ana ekran�mda 5 tane buton bulunacak her buton farkl� bir sayfa a�acak.)