В этой теме на 4 стр. уже отвечали
alexs писал(а):О, не ты первый
мне сказали, что о глюке знают, но поправить пока не получается.
Модератор: Модераторы
alexs писал(а):О, не ты первый
мне сказали, что о глюке знают, но поправить пока не получается.
grigoreo писал(а):как ето побороть?
LevelZero писал(а):ButtonPanel.OKButton.OnClick:='OKButtonClick';
LevelZero писал(а):....
учусь в основном только в инете (а русские форумы обычно злые и нетерпимые к новичкам)
других учителей не было
нет
и не предвидится
поэтому я еще долго не избавлюсь от ошибок и глупых вопросов
....
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ButtonPanel;
type
{ TForm1 }
TForm1 = class(TForm)
ButtonPanel1: TButtonPanel;
procedure OkBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
ButtonPanel1.OKButton.OnClick := @OkBtnClick;
end;
procedure TForm1.OkBtnClick(Sender: TObject);
begin
Caption := 'ПОЛУЧИЛОСЬ!!!';
end;
initialization
{$I unit1.lrs}
end.
qivi писал(а):В окне управления установленными пакетами кнопочки съезжаются друг на друга...
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 20