Delphi Forum

hocam, Derleme yaparken alıyorum hatayı bu satırda takılıyor Buton := GetButtonByTag(FlowPanel1, 10); Checking project dependencies... Compiling Project1.dproj (Debug, Win32) dcc32 command line for "Project1.dpr" [dcc32 Error] Unit1.pas(120): E2010 Incompatible types: 'Integer' and 'string...

Hocam Çok teşekkür ederim,

bu kısımı hata veriyor Buton := GetButtonByTag(FlowPanel1, 10);

buttonu panel yaptım belki farkeder die ama yine aynı bir türlü x butona işlem yapamıyorum Tpanel hali unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFe...

budefa da üst üste ekliyor formda

Hocam debug ediyorum ama bu kod ile ilgili bir hata vermiyor ? ve çalışmıyorda (tag 10 olan butona basıyorum) procedure TForm1.OnMasaClick(Sender: TObject); var i:integer; Begin if Sender is TButton then Caption:= TButton(Sender).Bilgi.ToString; for i := 0 to ComponentCount-1 do begin if (Components...

https://zarko-gajic.iz.hr/quick-tip-dyn ... gridpanel/

bir hata vermiyor ve çalışmıyor

var i:integer; Begin for i := frmMain.ComponentCount - 1 downto 0 do begin if (Components[i] is TButton) AND (TButton(Components[i]).Tag=10) Then Begin TButton( Components[i]).Caption :='BtnNamexx'; TButton( Components[i]).Color :=clGreen; TButton( Components[i]).Free; // Silmek için.. End; end; En...

"btnMASA.Info2:=Self.Tag;" tag ı nerde neye eşitliyorsun? tbutton class ında Info2 diye bir property mi var? info2 yok hocam tüm kod aşağıdaki gibi, asıl yapmak istediğim butonlar oluşturup x butonun adını rengini değiştirmek ve butonların onclik olayını çalıştırmak. unit Unit1; interface...

Ekrandaki herşeyi siliyor

TButton( Components).Free; // Silmek için..

çalışmadı :( tag 10 olan a basınca hatada vermiyor çalışmıyorda var i:integer; Begin for i := 0 to ComponentCount-1 do begin if (Components[i] is TButton) AND (TButton(Components[i]).Tag=10) Then Begin TButton( Components[i]).Caption :='BtnNamexx'; TButton( Components[i]).Color :=clGreen; TButton( C...

ve kodda çalışmıyor :( tam kod aşağıdaki gibi. unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxStyles, cxCustomData, cxFi...

böyle değilde, tag 10 olan butona işlem yapmak istiyorum

Arkadaşlar, aşağıdaki kod ile buton üretiyorum, ürettiğim butonun tag ını buluyorum yapmak istediğim tag ını bulduğum butonun rengini ve adını değiştirmek ? birde ürettiğim tüm butonları silmek istiyorum ? Teşekkürler procedure TForm1.Button1Click(Sender: TObject); var MASA: Integer; btnMASA: TButto...

Merhaba, adoquery içinde bulunan listeyi grindpanel e nasıl aktarabilirim ? aktardıktan sonra ise button clik olayını nasıl çalıştıracağım ? Teşekkürler procedure TForm1.CreateButtonGrid(const rowCount, colCount : integer); var i : integer; aButton: TButton; begin GridPanel1.RowCollection.BeginUpdat...