Código Delphi [-] procedure TForm1.Button2Click(Sender: TObject); begin // Identifica la ventana por el Handle. ShowMessage(IntToStr(Self.Handle)); end; procedure TForm1.Button3Click(Sender: TObject); begin // Identifica la ventana por el Nombre. ShowMessage(Self.Name); end;
procedure TForm1.Button2Click(Sender: TObject); begin // Identifica la ventana por el Handle. ShowMessage(IntToStr(Self.Handle)); end; procedure TForm1.Button3Click(Sender: TObject); begin // Identifica la ventana por el Nombre. ShowMessage(Self.Name); end;