Member Avatar for Starmaker

Hi All
I´m new to pascal, and need some help ;-)
I need one action when i click a button (send a serial string to Com)
and a different string when i release the button.
I have no problem in sending the first string when I click the button, but I can figure out how to send the second string when I release the button.
Could anybody give me a hint (in simple text, or maybe a samble)

Regards and thanks

  • 2 Contributors
  • 1 Reply
  • 85 Views
  • 8 Hours Discussion Span
  • Latest Post Latest Post by FlamingClaw
Member Avatar for FlamingClaw

one button,2 labels

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
LABEL1.Caption:='1-34-56-778-888999-1000';
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
LABEL2.Caption:='BUTTON RELEASED.';
end;
{
when you press the button then the label1's caption is the serial,and when you release the button then label2's caption is the 
button released string
}
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.